^^^VB高手帮忙^^^

Private Sub Command1_Click()
On Error GoTo errbad
Dim i, j, k As Integer
Dim n(), t, aver As Single
er: i = 0
Do
ReDim Preserve n(i)
n(i) = InputBox("请输入要比较的数，输入字母x结束！")
If n(i) <> "x" Then aver = aver + n(i)
i = i + 1
Loop While n(i - 1) <> "x"
aver = aver / (i - 1)
For j = 0 To i - 3
For k = j + 1 To i - 2
If n(j) < n(k) Then
t = n(j)
n(j) = n(k)
n(k) = t
End If
Next k
Next j
Print "最大值是： " & n(0) & "最小值是： " & n(i - 2) & "平均值是：" & aver
Exit Sub
errbad:
Exit Sub
End Sub

哪么你还一个弄一个变量作为计数的吗？每次输入一次就自动加一次吗。这样不就ok 了。

数组